inherited frmChargeAbonent: TfrmChargeAbonent
  Top = 298
  HelpContext = 1161
  ActiveControl = fraAddressBox.TownBox
  Caption = #1053#1072#1095#1080#1089#1083#1077#1085#1080#1077'/'#1087#1077#1088#1077#1088#1072#1089#1095#1077#1090' '#1087#1086' '#1072#1073#1086#1085#1077#1085#1090#1072#1084
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    TabOrder = 2
    inherited BitBtn1: TBitBtn
      Left = 7
      Caption = #1054#1096#1080#1073#1082#1080
      ParentFont = False
      Visible = False
    end
    inherited BitBtn2: TBitBtn
      Left = 694
      ParentFont = False
    end
    object BitBtn3: TBitBtn
      Left = 593
      Top = 1
      Width = 97
      Height = 25
      Action = aCalcCharge
      Anchors = [akTop, akRight]
      Caption = #1056#1072#1089#1095#1077#1090
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD2DF
        F8F4F4F6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFC9C9CCDADADD0392FB069CFE969CBDFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F12230A1000DEA9698B22CB7
        FA56FFFF26B1FEF3F3F5F8F5F585724D8C8B65988B69988B68928A668D8A6494
        91622C2C810004FF0002FF605F6A3385F36EB4F75BAEFCCFDEF8F6E7E466E4A4
        71FFC491FFCD90FFCE7EFFC772FFC376FFC00000C00D15FF1319F836758E58B2
        A741857DBFBEC1FFFFFFF5E7E46ADB9E74FABF96FBC895FBC882F8C176F8BD7C
        FFBD0C11B83F46FF4C52FF4146EE3639F01E27E9B2B2BAFFFFFFF5E7E470DEA5
        7AFAC19BFBCB9AFBCB87F8C37BF7BF80FFC13F669E6061FB8588FF888BFF7A7E
        FF2326A2DCD9D9FFFFFFF6E8E62FAD5288FFD0A1FBCFA0FBCE8DFAC984FCC981
        F9C27EFFC13C619C4B50BD5C60C8374AA874A982DBD7D7FFFFFFF4E9E6C19054
        0FC25BB3FFE1A8FDD671F0B52EB14D84FECC85F9C687FFC697F8C996ECC7A7FF
        D677C98EDAD7D7FFFFFFF2E9E6F99A71CCA5662DC66BA0FBD2369E34FFAA7C34
        AF4C8AFED187F8C79BFBCFABFDD5A5FFD678C68EDAD7D7FFFFFFF2E9E6EF9D72
        FFB58DBFA8693B9F39FFB28EFFB38AF2AD7E23B04990FFD5A4FDD8B3FEDDA9FF
        DA7AC68FDAD7D7FFFFFFF2E8E5EFAF8EFFC8AAFFC7ABFFC7ADFFC7A9FFC6A9FF
        C7ABEEBF9A14B44A7BD49629A83FBDFFE97DC692DAD7D7FFFFFFF2E8E4EFC1AC
        FFDCCAFFDAC7FFDAC7FFDAC7FFDAC7FFDAC7FFDCCBE0D1B0A2C087FED8C54BB5
        5B81CA9ADAD7D7FFFFFFF2E6E3F3DBD0FFFAF4FFF8F2FFF8F2FFF8F2FFF8F2FF
        F8F2FFF8F2FFF9F4FFFAF6FFF9F5F5F5E85C9643D9D6D6FFFFFFFBFAF9C99B8B
        D3AB9CD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD6AC
        9ED3A397FEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    end
    object ProgressBar: TProgressBar
      Left = 116
      Top = 6
      Width = 465
      Height = 16
      Anchors = [akLeft, akTop, akRight]
      ParentShowHint = False
      Smooth = True
      Step = 1
      ShowHint = True
      TabOrder = 3
      Visible = False
    end
  end
  inherited ToolBar1: TToolBar
    Top = 148
    Height = 0
    TabOrder = 3
  end
  object Panel4: TPanel [2]
    Left = 0
    Top = 148
    Width = 792
    Height = 356
    Align = alClient
    Caption = 'Panel4'
    TabOrder = 4
    object Splitter1: TSplitter
      Left = 246
      Top = 1
      Width = 5
      Height = 354
      Beveled = True
    end
    object gbAbonList: TGroupBox
      Left = 251
      Top = 1
      Width = 540
      Height = 354
      Align = alClient
      Caption = ' '#1057#1087#1080#1089#1086#1082' '#1072#1073#1086#1085#1077#1085#1090#1086#1074' '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object dbgAbonents: TDBGridEh
        Left = 2
        Top = 15
        Width = 536
        Height = 337
        Align = alClient
        DataGrouping.GroupLevels = <>
        DataSource = dscAbonList
        EvenRowColor = clWindow
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -13
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        OddRowColor = clWindow
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghFitRowHeightToText, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
        ParentFont = False
        PopupMenu = PopupMenu
        RowDetailPanel.Color = clBtnFace
        RowHeight = 2
        RowLines = 1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 5
        Columns = <
          item
            EditButtons = <>
            FieldName = 'address'
            Footers = <>
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -11
            Title.Font.Name = 'MS Sans Serif'
            Title.Font.Style = []
            Width = 250
          end
          item
            EditButtons = <>
            FieldName = 'notes'
            Footers = <>
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -11
            Title.Font.Name = 'MS Sans Serif'
            Title.Font.Style = []
            Width = 263
          end>
        object RowDetailData: TRowDetailPanelControlEh
        end
      end
    end
    inline TfraSubstanceInfo1: TfraSubstanceInfo
      Left = 1
      Top = 1
      Width = 245
      Height = 354
      Align = alLeft
      TabOrder = 1
      inherited TopPanel: TPanel
        Width = 245
        Height = 0
      end
      inherited BottomPanel: TPanel
        Top = 354
        Width = 245
        Height = 0
      end
      inherited PageControl: TPageControl
        Top = 0
        Width = 245
        Height = 354
        inherited TSInfo: TTabSheet
          inherited InfoGrid: TDBGridEh
            Width = 237
            Height = 323
          end
        end
      end
      inherited QSubstanceInfo: TpFIBDataSet
        SelectSQL.Strings = (
          'SELECT'
          '    RFIELD_NAME as NAME,'
          '    RFIELD_VALUE as VAL'
          'FROM'
          '    PROC_ABONENT_GET_PROP_LIST(:RABON_ID) ')
        DataSource = dscAbonList
        WaitEndMasterScroll = True
        dcForceOpen = True
      end
    end
  end
  object Panel3: TPanel [3]
    Left = 0
    Top = 504
    Width = 792
    Height = 42
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    DesignSize = (
      792
      42)
    object lElapsedTimeCaption: TLabel
      Left = 612
      Top = 6
      Width = 93
      Height = 13
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      Caption = #1055#1088#1086#1096#1083#1086' '#1074#1088#1077#1084#1077#1085#1080': '
      Visible = False
    end
    object lElapsedTime: TLabel
      Left = 708
      Top = 6
      Width = 81
      Height = 13
      Anchors = [akTop, akRight]
      AutoSize = False
      Caption = 'lElapsedTime'
      Visible = False
    end
    object lEstTimeCaption: TLabel
      Left = 603
      Top = 24
      Width = 102
      Height = 13
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      Caption = #1054#1089#1090#1072#1083#1086#1089#1100' '#1074#1088#1077#1084#1077#1085#1080': '
      Visible = False
    end
    object lEstTime: TLabel
      Left = 708
      Top = 24
      Width = 81
      Height = 13
      Anchors = [akTop, akRight]
      AutoSize = False
      Caption = '00.00.00'
      Visible = False
    end
    object pan22: TGroupBox
      Left = 0
      Top = 0
      Width = 443
      Height = 42
      Align = alLeft
      Caption = ' '#1055#1077#1088#1080#1086#1076' '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object Label13: TLabel
        Left = 21
        Top = 20
        Width = 37
        Height = 13
        Alignment = taRightJustify
        Caption = #1053#1072#1095#1072#1083#1086
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label14: TLabel
        Left = 240
        Top = 20
        Width = 31
        Height = 13
        Alignment = taRightJustify
        Caption = #1050#1086#1085#1077#1094
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object dblcBMonth: TDBComboBoxEh
        Left = 64
        Top = 17
        Width = 83
        Height = 19
        AlwaysShowBorder = True
        EditButton.Width = 16
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        Items.Strings = (
          #1103#1085#1074#1072#1088#1100
          #1092#1077#1074#1088#1072#1083#1100
          #1084#1072#1088#1090
          #1072#1087#1088#1077#1083#1100
          #1084#1072#1081
          #1080#1102#1085#1100
          #1080#1102#1083#1100
          #1072#1074#1075#1091#1089#1090
          #1089#1077#1085#1090#1103#1073#1088#1100
          #1086#1082#1090#1103#1073#1088#1100
          #1085#1086#1103#1073#1088#1100
          #1076#1077#1082#1072#1073#1088#1100)
        KeyItems.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '10'
          '11'
          '12')
        ParentFont = False
        TabOrder = 0
        Visible = True
      end
      object dbBYear: TDBNumberEditEh
        Left = 150
        Top = 17
        Width = 73
        Height = 19
        AlwaysShowBorder = True
        EditButtons = <
          item
            Style = ebsMinusEh
            Width = 16
            OnClick = dbBYearEditButtons0Click
          end
          item
            Style = ebsPlusEh
            Width = 16
            OnClick = dbBYearEditButtons1Click
          end>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        MaxValue = 2010.000000000000000000
        MinValue = 2005.000000000000000000
        ParentFont = False
        TabOrder = 1
        Value = 2008.000000000000000000
        Visible = True
      end
      object dblcEMonth: TDBComboBoxEh
        Left = 277
        Top = 17
        Width = 83
        Height = 19
        AlwaysShowBorder = True
        EditButton.Width = 16
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        Items.Strings = (
          #1103#1085#1074#1072#1088#1100
          #1092#1077#1074#1088#1072#1083#1100
          #1084#1072#1088#1090
          #1072#1087#1088#1077#1083#1100
          #1084#1072#1081
          #1080#1102#1085#1100
          #1080#1102#1083#1100
          #1072#1074#1075#1091#1089#1090
          #1089#1077#1085#1090#1103#1073#1088#1100
          #1086#1082#1090#1103#1073#1088#1100
          #1085#1086#1103#1073#1088#1100
          #1076#1077#1082#1072#1073#1088#1100)
        KeyItems.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '10'
          '11'
          '12'
          '')
        ParentFont = False
        TabOrder = 2
        Visible = True
      end
      object dbEYear: TDBNumberEditEh
        Left = 363
        Top = 17
        Width = 73
        Height = 19
        AlwaysShowBorder = True
        EditButtons = <
          item
            Style = ebsMinusEh
            Width = 16
            OnClick = dbEYearEditButtons0Click
          end
          item
            Style = ebsPlusEh
            Width = 16
            OnClick = dbEYearEditButtons1Click
          end>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        MaxValue = 2010.000000000000000000
        MinValue = 2005.000000000000000000
        ParentFont = False
        TabOrder = 3
        Value = 2008.000000000000000000
        Visible = True
      end
    end
    object GroupBox2: TGroupBox
      Left = 443
      Top = 0
      Width = 150
      Height = 42
      Align = alLeft
      Caption = ' '#1044#1072#1090#1072' '#1087#1088#1086#1074#1077#1076#1077#1085#1080#1103' '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      object dbtChargeDate: TDBDateTimeEditEh
        Left = 14
        Top = 17
        Width = 127
        Height = 19
        AlwaysShowBorder = True
        EditButton.Width = 16
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        Kind = dtkDateEh
        ParentFont = False
        TabOrder = 0
        Visible = True
      end
    end
  end
  object Panel2: TPanel [4]
    Left = 0
    Top = 0
    Width = 792
    Height = 148
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object GroupBox4: TGroupBox
      Left = 260
      Top = 0
      Width = 532
      Height = 148
      Align = alClient
      Caption = ' '#1044#1086#1087'.'#1092#1080#1083#1100#1090#1088' '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      DesignSize = (
        532
        148)
      object Label6: TLabel
        Left = 74
        Top = 42
        Width = 65
        Height = 13
        Alignment = taRightJustify
        Caption = #1043#1088#1091#1087#1087#1072' '#1091#1089#1083#1091#1075
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 14
        Top = 22
        Width = 124
        Height = 13
        Alignment = taRightJustify
        Caption = #1046#1080#1083#1080#1097#1085#1072#1103' '#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1103
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 80
        Top = 82
        Width = 58
        Height = 13
        Alignment = taRightJustify
        Caption = #1055#1086#1089#1090#1072#1074#1097#1080#1082
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label11: TLabel
        Left = 31
        Top = 102
        Width = 107
        Height = 13
        Alignment = taRightJustify
        Caption = #1059#1095#1072#1089#1090#1086#1082' '#1087#1086#1089#1090#1072#1074#1097#1080#1082#1072
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label1: TLabel
        Left = 102
        Top = 62
        Width = 36
        Height = 13
        Alignment = taRightJustify
        Caption = #1059#1089#1083#1091#1075#1072
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object lcbGroups: TDBLookupComboboxEh
        Left = 145
        Top = 40
        Width = 362
        Height = 19
        AlwaysShowBorder = True
        Anchors = [akLeft, akTop, akRight]
        DropDownBox.SpecRow.CellsText = #1055#1086' '#1074#1089#1077#1084' '#1075#1088#1091#1087#1087#1072#1084' '#1091#1089#1083#1091#1075
        DropDownBox.SpecRow.Value = '0'
        DropDownBox.SpecRow.Visible = True
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        KeyField = 'ID'
        ListField = 'NAME'
        ListSource = dsc_SrvList
        ParentFont = False
        TabOrder = 1
        Visible = True
        OnChange = lcbGroupsChange
        OnCloseUp = lcbManagsCloseUp
        OnKeyPress = lcbManagsKeyPress
      end
      object lcbManags: TDBLookupComboboxEh
        Left = 145
        Top = 20
        Width = 362
        Height = 19
        AlwaysShowBorder = True
        Anchors = [akLeft, akTop, akRight]
        DropDownBox.SpecRow.CellsText = #1055#1086' '#1074#1089#1077#1084' '#1091#1087#1088'.'#1082#1086#1084#1087#1072#1085#1080#1103#1084
        DropDownBox.SpecRow.Value = '-1'
        DropDownBox.SpecRow.Visible = True
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        KeyField = 'ID'
        ListField = 'MANAG'
        ListSource = dsc_ManagList
        ParentFont = False
        TabOrder = 0
        Visible = True
        OnChange = lcbGroupsChange
        OnCloseUp = lcbManagsCloseUp
        OnKeyPress = lcbManagsKeyPress
      end
      object lcbSuppliers: TDBLookupComboboxEh
        Left = 145
        Top = 80
        Width = 362
        Height = 19
        AlwaysShowBorder = True
        Anchors = [akLeft, akTop, akRight]
        DropDownBox.SpecRow.CellsText = #1055#1086' '#1074#1089#1077#1084' '#1087#1086#1089#1090#1072#1074#1097#1080#1082#1072#1084
        DropDownBox.SpecRow.Value = '0'
        DropDownBox.SpecRow.Visible = True
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        KeyField = 'ID'
        ListField = 'NAME'
        ListSource = dsc_SuppList
        ParentFont = False
        TabOrder = 3
        Visible = True
        OnChange = lcbSuppliersChange
        OnCloseUp = lcbManagsCloseUp
        OnKeyPress = lcbManagsKeyPress
      end
      object lcbDepts: TDBLookupComboboxEh
        Left = 145
        Top = 100
        Width = 362
        Height = 19
        AlwaysShowBorder = True
        Anchors = [akLeft, akTop, akRight]
        DropDownBox.SpecRow.CellsText = #1055#1086' '#1074#1089#1077#1084' '#1091#1095#1072#1089#1090#1082#1072#1084' '#1087#1086#1089#1090#1072#1074#1097#1080#1082#1072
        DropDownBox.SpecRow.Value = '0'
        DropDownBox.SpecRow.Visible = True
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        KeyField = 'ID'
        ListField = 'NAME'
        ListSource = dsc_SuppDepts
        ParentFont = False
        TabOrder = 4
        Visible = True
        OnCloseUp = lcbManagsCloseUp
        OnKeyPress = lcbManagsKeyPress
      end
      object lcbServices: TDBLookupComboboxEh
        Left = 145
        Top = 60
        Width = 362
        Height = 19
        AlwaysShowBorder = True
        Anchors = [akLeft, akTop, akRight]
        DropDownBox.SpecRow.CellsText = #1055#1086' '#1074#1089#1077#1084' '#1091#1089#1083#1091#1075#1072#1084
        DropDownBox.SpecRow.Value = '0'
        DropDownBox.SpecRow.Visible = True
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        KeyField = 'ID'
        ListField = 'NAME'
        ListSource = dsc_SubSrvList
        ParentFont = False
        TabOrder = 2
        Visible = True
        OnChange = lcbSuppliersChange
        OnCloseUp = lcbManagsCloseUp
        OnKeyPress = lcbManagsKeyPress
      end
    end
    object Panel5: TPanel
      Left = 0
      Top = 0
      Width = 260
      Height = 148
      Align = alLeft
      BevelOuter = bvNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      inline fraAddressBox: TfraAddress
        Left = 0
        Top = 0
        Width = 260
        Height = 148
        Align = alClient
        TabOrder = 0
        inherited SearchBox: TGroupBox
          Width = 260
          Height = 148
          Constraints.MinHeight = 0
          Font.Style = [fsBold]
          ParentFont = False
          inherited SubPanel: TPanel
            Width = 256
            Height = 131
            inherited Label6: TLabel
              Top = 172
            end
            inherited Label5: TLabel
              Top = 197
            end
            inherited Label4: TLabel
              Top = 80
            end
            inherited Label3: TLabel
              Top = 56
            end
            inherited Label2: TLabel
              Top = 32
            end
            inherited Label1: TLabel
              Top = 8
            end
            inherited TownBox: TDBLookupComboboxEh
              Top = 5
            end
            inherited StreetBox: TDBLookupComboboxEh
              Top = 29
            end
            inherited NLSEdit: TDBEditEh
              Top = 170
            end
            inherited NameEdit: TDBEditEh
              Top = 194
            end
            inherited HouseBox: TDBLookupComboboxEh
              Top = 53
            end
            inherited FindBtn: TButton
              Left = 24
              Top = 101
              Width = 109
              Caption = #1044#1086#1073#1072#1074#1080#1090#1100
              OnClick = TfraAddress1FindBtnClick
            end
            inherited ClearBtn: TButton
              Left = 140
              Top = 101
              Width = 109
              OnClick = fraAddressBoxClearBtnClick
            end
            inherited AppartBox: TDBLookupComboboxEh
              Top = 77
            end
            inherited AddBtn: TButton
              Left = 156
              Top = 328
            end
          end
        end
        inherited QStreets: TpFIBDataSet
          Transaction = MAINDM.pMainTransaction
          Database = MAINDM.pMainDatabase
          UpdateTransaction = MAINDM.pMainTransaction
          Left = 8
          Top = 48
        end
        inherited QHouses: TpFIBDataSet
          Transaction = MAINDM.pMainTransaction
          Database = MAINDM.pMainDatabase
          UpdateTransaction = MAINDM.pMainTransaction
          Left = 8
          Top = 80
        end
        inherited QTowns: TpFIBDataSet
          Transaction = MAINDM.pMainTransaction
          Database = MAINDM.pMainDatabase
          UpdateTransaction = MAINDM.pMainTransaction
          Left = 8
          Top = 16
        end
        inherited QApparts: TpFIBDataSet
          Left = 8
          Top = 112
        end
        inherited ds_QTowns: TDataSource
          Left = 44
          Top = 16
        end
        inherited ds_QApparts: TDataSource
          Left = 44
          Top = 112
        end
        inherited ds_QHouses: TDataSource
          Left = 44
          Top = 80
        end
        inherited ds_QStreets: TDataSource
          Left = 44
          Top = 48
        end
      end
    end
  end
  inherited ActionList1: TActionList
    Left = 588
    Top = 22
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
    object aCalcCharge: TAction
      Caption = #1056#1072#1089#1095#1077#1090
      Hint = #1047#1072#1087#1091#1089#1082' '#1088#1072#1089#1095#1077#1090#1072' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1103' '#1079#1072' '#1091#1082#1072#1079#1072#1085#1085#1099#1081' '#1087#1077#1088#1080#1086#1076
      OnExecute = aCalcChargeExecute
    end
    object aSearch: TAction
      Caption = #1055#1086#1080#1089#1082
      Hint = #1053#1072#1081#1090#1080' '#1080' '#1074#1099#1073#1088#1072#1090#1100' '#1072#1073#1086#1085#1077#1085#1090#1072'(-'#1086#1074')'
    end
    object aSaveErrors: TAction
      Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1086#1096#1080#1073#1082#1080' '#1074' '#1092#1072#1081#1083
      Hint = #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1086#1096#1080#1073#1082#1080' '#1074' '#1092#1072#1081#1083
      OnExecute = aSaveErrorsExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'frmChargeAbonent'
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      '<P>.WindowState'
      'Panel4.gbAbonList.dbgAbonents.<P>.Columns.ColumnsIndex'
      'Panel4.gbAbonList.dbgAbonents.<P>.Columns.<ForAllItems>.Width'
      'Panel4.TfraSubstanceInfo1.<P>.Width')
  end
  object dsRefer: TpFIBDataSet
    UpdateSQL.Strings = (
      'update abonents a set a.note = :notes where a.id = :RABON_ID')
    SelectSQL.Strings = (
      'select a.id as RABON_ID, '
      '       a.g_licschet as RNLS, '
      '       a.address,'
      '       cast(null as varchar(1000)) as notes'
      '  from v_abons a'
      '  where a.is_active > 0'
      '    and a.client_id >= 0'
      '    @@ptown@'
      '    @@pstreet@'
      '    @@pbuilding@'
      '    @@pappart@'
      '    @@pdogovors@'
      'order by a.address')
    AfterScroll = dsReferAfterScroll
    BeforeOpen = dsReferBeforeOpen
    AllowedUpdateKinds = [ukModify]
    Transaction = trRefer
    Database = MAINDM.pMainDatabase
    Left = 24
    Top = 320
    oFetchAll = True
    object dsReferRABON_ID: TFIBIntegerField
      FieldName = 'RABON_ID'
    end
    object dsReferRNLS: TFIBStringField
      DisplayLabel = #1051#1057
      FieldName = 'RNLS'
      EmptyStrToNull = True
    end
    object dsReferADDRESS: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089
      FieldName = 'ADDRESS'
      Size = 245
      EmptyStrToNull = True
    end
    object dsReferNOTES: TFIBStringField
      DisplayLabel = #1056#1077#1079#1091#1083#1100#1090#1072#1090
      FieldName = 'NOTES'
      Size = 1000
      EmptyStrToNull = True
    end
  end
  object dscAbonList: TDataSource
    DataSet = mteAbonList
    Left = 388
    Top = 100
  end
  object trRefer: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 24
    Top = 284
  end
  object trCharge: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 28
    Top = 212
  end
  object dsCharge: TpFIBDataSet
    SelectSQL.Strings = (
      'select 1 '
      '  from PROC_GENCHARGE_NEW '
      '        (:abon_id, '
      '         null, '
      '         :group_id, '
      '         :bdate, '
      '         :edate, '
      '         null, '
      '         1, '
      '         :docdate, '
      '         null, '
      '         null, '
      '         :supplier_id,'
      '         null,'
      '         null,'
      '         null)')
    AllowedUpdateKinds = []
    Transaction = trCharge
    Database = MAINDM.pMainDatabase
    Left = 64
    Top = 210
  end
  object PopupMenu: TPopupMenu
    Left = 531
    Top = 207
    object iDelRecord: TMenuItem
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1079#1072#1087#1080#1089#1100
      OnClick = iDelRecordClick
    end
    object iDelAllRecords: TMenuItem
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1074#1089#1077' '#1079#1072#1087#1080#1089#1080
      OnClick = iDelAllRecordsClick
    end
    object iSaveErrorLog: TMenuItem
      Action = aSaveErrors
      Visible = False
    end
  end
  object trLists: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 554
    Top = 34
  end
  object ds_SrvList: TpFIBDataSet
    UpdateSQL.Strings = (
      
        'execute procedure supp_incomplete_upd (:manag_id, :supplier_id, ' +
        ':group_id, :bdate, :edate, :ipercent, :old_manag_id, :old_suppli' +
        'er_id, :old_group_id, :old_bdate, :old_edate, :supplier_dept, :o' +
        'ld_supplier_dept)')
    DeleteSQL.Strings = (
      
        'execute procedure supp_incomplete_del (:old_manag_id, :old_suppl' +
        'ier_id, :old_group_id, :old_bdate, :old_edate, :old_supplier_dep' +
        't)')
    InsertSQL.Strings = (
      
        'execute procedure supp_incomplete_ins (:manag_id, :super_id, :su' +
        'pplier_id, :group_id, :bdate, :edate, :ipercent, :supplier_dept)')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SERVICES '
      'where group_id = 0'
      'order by 2')
    Transaction = trLists
    Database = MAINDM.pMainDatabase
    Left = 488
    Top = 32
    oFetchAll = True
    object ds_SrvListID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_SrvListNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dsc_SrvList: TDataSource
    DataSet = ds_SrvList
    Left = 520
    Top = 32
  end
  object ds_ManagList: TpFIBDataSet
    UpdateSQL.Strings = (
      
        'execute procedure supp_incomplete_upd (:manag_id, :supplier_id, ' +
        ':group_id, :bdate, :edate, :ipercent, :old_manag_id, :old_suppli' +
        'er_id, :old_group_id, :old_bdate, :old_edate, :supplier_dept, :o' +
        'ld_supplier_dept)')
    DeleteSQL.Strings = (
      
        'execute procedure supp_incomplete_del (:old_manag_id, :old_suppl' +
        'ier_id, :old_group_id, :old_bdate, :old_edate, :old_supplier_dep' +
        't)')
    InsertSQL.Strings = (
      
        'execute procedure supp_incomplete_ins (:manag_id, :super_id, :su' +
        'pplier_id, :group_id, :bdate, :edate, :ipercent, :supplier_dept)')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    MANAG'
      'FROM'
      '    RMANAG r'
      'where r.closed_rs = 0'
      '  and exists(select 1 from vw_dogovors d'
      '          where d.manag_id = r.id)'
      
        '  and ((coalesce(:pstreet_id, -1) = -1 and coalesce(:pbuilding_i' +
        'd, -1) = -1) or'
      '      exists(select 1 from buildings b'
      '          where b.owner_id = r.id'
      
        '            and (coalesce(:pbuilding_id, -1) = -1 or b.id = coal' +
        'esce(:pbuilding_id, -1))'
      
        '            and (coalesce(:pstreet_id, -1) = -1 or b.street_id =' +
        ' coalesce(:pstreet_id, -1))))'
      'order by 2')
    Transaction = trLists
    Database = MAINDM.pMainDatabase
    Left = 488
    Top = 76
    oFetchAll = True
    object ds_ManagListID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_ManagListMANAG: TFIBStringField
      FieldName = 'MANAG'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dsc_ManagList: TDataSource
    DataSet = ds_ManagList
    Left = 520
    Top = 76
  end
  object ds_SuppList: TpFIBDataSet
    UpdateSQL.Strings = (
      
        'execute procedure supp_incomplete_upd (:manag_id, :supplier_id, ' +
        ':group_id, :bdate, :edate, :ipercent, :old_manag_id, :old_suppli' +
        'er_id, :old_group_id, :old_bdate, :old_edate, :supplier_dept, :o' +
        'ld_supplier_dept)')
    DeleteSQL.Strings = (
      
        'execute procedure supp_incomplete_del (:old_manag_id, :old_suppl' +
        'ier_id, :old_group_id, :old_bdate, :old_edate, :old_supplier_dep' +
        't)')
    InsertSQL.Strings = (
      
        'execute procedure supp_incomplete_ins (:manag_id, :super_id, :su' +
        'pplier_id, :group_id, :bdate, :edate, :ipercent, :supplier_dept)')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    V_SUPPLIER r'
      'where exists(select 1 from rtariffs d, services s'
      '          where d.supplier_id = r.id'
      '            and d.service_id = s.id'
      '            and (:pgroup_id = 0 or s.group_id = :pgroup_id))'
      'order by 2')
    Transaction = trLists
    Database = MAINDM.pMainDatabase
    Left = 676
    Top = 30
    oFetchAll = True
    object ds_SuppListID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_SuppListNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dsc_SuppList: TDataSource
    DataSet = ds_SuppList
    Left = 708
    Top = 30
  end
  object ds_SuppDepts: TpFIBDataSet
    UpdateSQL.Strings = (
      
        'execute procedure supp_incomplete_upd (:manag_id, :supplier_id, ' +
        ':group_id, :bdate, :edate, :ipercent, :old_manag_id, :old_suppli' +
        'er_id, :old_group_id, :old_bdate, :old_edate, :supplier_dept, :o' +
        'ld_supplier_dept)')
    DeleteSQL.Strings = (
      
        'execute procedure supp_incomplete_del (:old_manag_id, :old_suppl' +
        'ier_id, :old_group_id, :old_bdate, :old_edate, :old_supplier_dep' +
        't)')
    InsertSQL.Strings = (
      
        'execute procedure supp_incomplete_ins (:manag_id, :super_id, :su' +
        'pplier_id, :group_id, :bdate, :edate, :ipercent, :supplier_dept)')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    rsupplier_deps r'
      'where supplier_id = :psupp_id'
      ' and exists(select 1 from vw_dogovors d, services s'
      '          where d.supplier_id = r.supplier_id'
      '            and d.service_id = s.id'
      '            and (:pgroup_id = 0 or s.group_id = :pgroup_id)'
      '            and d.supplier_dept = r.id)'
      'order by 2')
    Transaction = trLists
    Database = MAINDM.pMainDatabase
    Left = 676
    Top = 68
    oFetchAll = True
    object ds_SuppDeptsID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_SuppDeptsNAME: TFIBStringField
      FieldName = 'NAME'
      EmptyStrToNull = True
    end
  end
  object dsc_SuppDepts: TDataSource
    DataSet = ds_SuppDepts
    Left = 708
    Top = 68
  end
  object mteAbonList: TMemTableEh
    FieldDefs = <
      item
        Name = 'RABON_ID'
        DataType = ftInteger
      end
      item
        Name = 'RNLS'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'ADDRESS'
        DataType = ftString
        Size = 245
      end
      item
        Name = 'NOTES'
        DataType = ftString
        Size = 1000
      end>
    IndexDefs = <
      item
        Name = 'mteAbonListIndex'
        Fields = 'rabon_id'
        Options = [ixUnique]
      end>
    Params = <>
    StoreDefs = True
    Left = 362
    Top = 100
    object mteAbonListrabon_id: TIntegerField
      FieldName = 'rabon_id'
      Visible = False
    end
    object mteAbonListaddress: TStringField
      DisplayLabel = #1040#1076#1088#1077#1089
      DisplayWidth = 60
      FieldName = 'address'
      Size = 120
    end
    object mteAbonListnote: TStringField
      DisplayLabel = #1056#1077#1079#1091#1083#1100#1090#1072#1090
      DisplayWidth = 60
      FieldName = 'notes'
      Size = 255
    end
    object MemTableData: TMemTableDataEh
      object DataStruct: TMTDataStructEh
        object RABON_ID: TMTNumericDataFieldEh
          FieldName = 'RABON_ID'
          NumericDataType = fdtIntegerEh
          Alignment = taRightJustify
          DisplayLabel = 'RABON_ID'
          DisplayWidth = 10
          Required = False
          Visible = True
          currency = False
          Precision = 0
        end
        object RNLS: TMTStringDataFieldEh
          FieldName = 'RNLS'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayLabel = #1051#1057
          DisplayWidth = 20
          Required = False
          Visible = True
          Size = 20
          Transliterate = False
        end
        object ADDRESS: TMTStringDataFieldEh
          FieldName = 'ADDRESS'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayLabel = #1040#1076#1088#1077#1089
          DisplayWidth = 245
          Required = False
          Visible = True
          Size = 245
          Transliterate = False
        end
        object NOTES: TMTStringDataFieldEh
          FieldName = 'NOTES'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayLabel = #1056#1077#1079#1091#1083#1100#1090#1072#1090
          DisplayWidth = 1000
          Required = False
          Visible = True
          Size = 1000
          Transliterate = False
        end
      end
      object RecordsList: TRecordsListEh
        Data = (
          (
            0
            nil
            ''
            nil))
      end
    end
  end
  object ds_SubSrvList: TpFIBDataSet
    UpdateSQL.Strings = (
      
        'execute procedure supp_incomplete_upd (:manag_id, :supplier_id, ' +
        ':group_id, :bdate, :edate, :ipercent, :old_manag_id, :old_suppli' +
        'er_id, :old_group_id, :old_bdate, :old_edate, :supplier_dept, :o' +
        'ld_supplier_dept)')
    DeleteSQL.Strings = (
      
        'execute procedure supp_incomplete_del (:old_manag_id, :old_suppl' +
        'ier_id, :old_group_id, :old_bdate, :old_edate, :old_supplier_dep' +
        't)')
    InsertSQL.Strings = (
      
        'execute procedure supp_incomplete_ins (:manag_id, :super_id, :su' +
        'pplier_id, :group_id, :bdate, :edate, :ipercent, :supplier_dept)')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SERVICES '
      'where group_id = :id'
      'order by 2')
    Transaction = trLists
    Database = MAINDM.pMainDatabase
    DataSource = dsc_SrvList
    Left = 416
    Top = 56
    WaitEndMasterScroll = True
    dcForceOpen = True
    oFetchAll = True
    object FIBIntegerField1: TFIBIntegerField
      FieldName = 'ID'
    end
    object FIBStringField1: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dsc_SubSrvList: TDataSource
    DataSet = ds_SubSrvList
    Left = 448
    Top = 56
  end
end
